FFFFFFFFFFEFFFFF DDDDDDDDDDDD 

FFFFFFFFFFFFFFF DDDDDDDDDDDD 

FFFFFFFFFFFFFFF DODDDDDDDDDDD 

FFF DDD DOD 
FFF DDD DOD 
FFF DDD DDD 
FFF DDD DDD 
FFF DDD DOD 
FFF DDD DDD 
FFFFFFFFFFFF DDD DDD 
FRFEFFFFFFFFE DDD DDD 
FFFFERFFFFFF DDD DOD 
FFF DDD DDD 
FFF DOD DDD 
FFF DDD DDD 
FFF DDD DOD 
FFF DDD DDD 
FFF DDD DDD 
FFF DDDDDDDDPDDD 

FFF DDDDDDDDDDDD 

FFF DDDDDDDDDDDD 
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| **F LLE®*1D®*F DLPARDEF 
FFFFFFFFFF DDDDDDDD = LL PPPPPPPP AAAAAA =e RRRRRRRR-~——s«éDDDDDDD ~—s«*EEEEEEEEEE FFFFFFFFFF ; 
FFFFFFFFFF DDDDDDDD = LL PPPPPPPP AAAAAA = RRRRRRRR_—s DDDDDDDD ~—sEEEEEEEEEE FFFFFFFFFF ; 
FF DD DD LL PP PP AA AA RR RR OD DD EE FF ; 
FF DD DD LL PP PP AA AA RR RR DD DD EE FF ; 
FF DD DD LL PP PP AA AA RR RR DD DD EE FF ; 
FF DD DD LL PP P AA AA RR RR DD DD EE FF 3 
FFFFFFFF 8©=© DD DD LL PPPPPPPP = AA AA RRRRRRRR DD DD EEEEEEEE FFFFFFFF ; 
FFFFFFFF © DD DD LL PPPPPPPP = AA AA RRRRRRRR DD DD EEEEEEEE  FFFFFFFF ; 
FF DD DD LL PP AAAAAAAAAA RR RR DD DD EE FF : 
FF DD DD LL PP AAAAAAAAAA RR RR DD DD EE FF ; 
FF DD DD LL PP AA AA RR RR ODD DD EE FF died ; 
FF DD DD LL PP AA AA RR RR_ ODD DD EE FF ‘ ; 
rr DDDDDDDD ~—sLLLLLLLLLL PP AA AA RR RR DDDDDDDD EEE FF n ; 
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{* 
{* 
{* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
{* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
+ ALL RIGHTS RESERVED . 
e ® 
{* rae SOF TWARE 4 FURNISHED ete A LICENSE AND MAY BE USED AND copies * 
{* Y IN ACCORDANCE WITH THE TER “i OF SUCH bic CENSE AND WITH THE * 
{* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF TWARE OR ANY OTHE * 
{* COPIES THEREOF MAY NOT PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
{* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
te TRANSFERRED. * 
e * 
{* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
{* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ts CORPORATION. * 
te *® 
{* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
t SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® ® 
{* * 
(eee eee eee R ERATE AREER AAA TEAR ATA TATA AEE eee AeA 
15-SEP-1984 23:01:54.97 SOL _ v2.0 Page 
15-SEP-1984 22:44:18 _$255$DUA28: CFDL.SRCIFDLPARDEF .SDL; 1 
module S$FDLDEF3; 
-_ These fields are found in FDLS$AB_CTRL 
® 
cnerepete Fe FDOLDEF3 union prette FDLS; 
ITSO structu 
xy S bitfield assk Length 3; /* Status code for processing 
DARNING bitfield mask; /* a yorssng message has been issued for this secondary 
PRIMARY bitfield mask; /* Primary has been parsed 
NEWPRI bitfield mask; /* A new primary has been parsed 
SECONDARY bitfield mask; /* Secondary has been persed 
INITIAL bitfield mask; /* Initial pass 
ENT bitfield mask; /* Secondary comment has —— detected 
LINECMT bitfield mask; /* Line comment has been detected 
PCALL bitfield mask; /* This is an EDF Parse cai 
DCL bitfield mask; /* Called by a DCL utility 
STRING SPEC bitfield mask; /* An FOL STRING 
USED_STRING bitfield mask; /* FDL STRING has been set up 
APOST_PRES bitfield mask; /* An apostrophe was found by the pre.parse 
QUOTE _PRES bitfield mask; /* a _ qustacten mark was found by the pre_parse 
REPARSE bitfield mask; /* D oing a parse. into a parse 
FLT_PRES bitfield mask; /* T FLT_FDL_SPEC argument was present 
STVACID bitfield mask; /* IDE SGL STNUMPTR is valid 
GCALL bitfield mask; /* This is _— EDF frrcets,, cant 
FULLGEN bitfield mask; /* Generate the full FDL 
DEALLOC bitfield mask; /* Make Por sseneck “BLOCKS. deal locate the 
/* RMS control blocks after it checks them 


end FDLDEF_BITSO; 
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F 4 
Codes found in FDLSGL_PRIMARY 
constant ( 
DUMMY _PRIMARYS /* Dummy_primary$ 
, ACCESS /* Access 
~ ACL /* Access Control Lists 
» ANALA /* Analysis _of_area 
» ANALK /* Analysis_of_key 
° /* Area 
» CONNECT /* Connect 
° /* Date 
oF a /* File 
. ‘IDENT /* Ident 
» JNL /* Journal 
° /* Key 
- RECORD /* Record 
- SHARING /* Sharing 
74 » SYST System 
Le » TITLE Title 
77 = /t LAST PRIMARY 
78 /* 
79 , PRITAB_SIZE 
59 ) equals 0 increment 1 prefix FDL tag $C; 
S¢ Bits defined for FDLS$AB_PRIMCTRL 
-SEP-1984 23:01:54.97 Page 
“SEP-1984 22:44:18 A28: CFOL.SRCIFDLPARDEF .SDL;1 
84 FDOLDEF BITS1 structure; 
85 ACCESS bitfield mask; Access , 
86 ACL bitfield mask; Access Control List 
87 ANALA bitfield mask; Analysis_of_area 
88 ANALK bitfield mask; Analysis_of_key 
89 AREA bitfield mask; rea 
CONNECT bitfield mask; Connect 
91 DATE bitfield mask; ate 
92 FILE bitfield mask; File 
93 “IDENT bitfield mask; Ident 
94 JNL bitfield mask; Journal 
95 KEY bitfield mask; Key 
96 RECORD bitfield mask; Record 
97 SHARING bitfield mask; Sharing 
98 SYSTEM bitfield mask; System 
99 TITLE bitfield mask; Title 
130 end FDLDEF_BITS1; 
108 J Single field switch for YES - NO qualifiers 
e 
104 constant FALSE equals 0 prefix FDL tag $C; No 
+4 constant TRUE equals -1 prefix FDL tag $C; Yes 
107 /*# Secondary codes for each pctaery 
198 - These codes are found in FDL$GL_SECONDARY 
e 
139 /* Qualifiers for each secondary are Listed seperatly 
11 /* Seee eee eee eee eee tage eed eee e eee eet eeeeeeeeeeeeeganeeeeconeeeny 
118 /* REMEMBER TO UPDATE XXX_BEG AND XXX_END MARKERS IF SW ATTRIBUTE IS 
114 /* ADDED/SUBTRACTED ONTO/OFF EITHER ERD OF A PR >EC 
115 /* eee eee cece e eee c area rece kesegacages SSPE eee eeegeeeeges 
116 
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Access primary 


constant ( 


DUMMY SECONDARYS 
B10 


ACE 


Codes for Analysis_of_area primary 
RECL 


Analysis_of_key primary 
DFIL 


MIL 

RANACC 
RANINS 
SEQACC 


Codes for Area primary 


Codes for Connect primary 
ASY 

B10 

BUCODE 

RCTX 

EOF 


15-S 
15-S 


FOL 
v04 
/* pyusay .peconder ys 
/* Block I/0 only 
/* Deletes 
/* Gets 
/* Pu 


ts 
/* Record and Block I/0 
/* Truncate 
/* Updates 


/* Entry 


/* Reclaimed_space 
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/* Data_fill 


EP=1984 23:01:54.97 SDL 
EP=1984 22:44:18 ae 
/* Data_key_compression. 

/* Data_record_compression 
/* Data_record_count 

/* Data_space_occupied 

/* Deletions 

/* Depth 

/* Duplicates_per_value 

/* Index_compression 

/* Index_fil 

/* Index space_occupied 

/* LevelT_record_count 

/* Mean_data_length 

/* Mean_index_length 

/* Random_accesses 

/* Random_inserts 

/* Sequential_accesses 


v2.0 Page 4 
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/* Allocation — 

/* Best_try_contigous 
/* Bucket_size 

/* Contigous _ 

/* Exact_position 

/* Extend 

/* Position 

/* Voulme 


/* Asynchronous 
lLock_10 


/* Bucket_code 
/* Contex 
/* End_of_file 


H 4 
i= 2ae + FLOA /* Fill buckets 
178 » FOEL /* Fast_delete 
179 » KRF /* Key_of_reference 
180 » KGE /* Key_greater_equal 
181 » KGT /* poy .pregter., chan 
36 » KLIM /* Key_limit 
18 - LOCMODE /* Locate_mode 
184 » REA /* Lock _on_read 
185 » RLK /* Lock_on_write 
186 . ULK /* Manual _unlockin 
187 , MBC /* MultibTock_coun 
188 . MBF /* Mulitbuffer_count 
189 » NLK /* Nolock 
190 » NXR /* Nonexistent_record 
191 » RAH /* Read_ahea 
136 » RRL /* Read_regardless 
19 . TMENB /* Timeout_enable 
194 - TMO /* Timeout_period 
195 « et /* Truncate_on_put 
196 » TTCCO /* TT_canceTl_control_o 
197 » TTCVT /* TT_upcase_input 
198 » TTPMT /* TT_prompt 
199 . TTPTA /* TT_purge_type_ahead 
15-SEP-1984 23:01:54.97 SDL_V2.0 Page 
15-SEP-1984 22:44:18 -$255$DUA28: CFDL.SRCIFDLPARDEF .SDL;1 
200 » TTRNE /* TT_read_noecho 
201 » TTRNF /* TT_read_nofilter 
202 . UIF /* Update_ 
203 , WAT /* Wait_for_record 
soe . WBH /* Write_behind 
206 /* Codes for Date primary 
207. /* 
208 - BACKUP /* Backup 
209 » CREAT /* Creation 
210 . EXPR /* Experation 
13 » REV /* Revision 
213 /* Codes for File primary 
214 ~/* 
215 » ALL /* Allocation | 
216 . BIC /* Best_try_contiguous 
217 - BKTSIZ /* Bucket_size 
218 - CLUSIZ /* Cluster_size 
219 - FCTX /* Context 
220 . CONT /* Contiguous 
221 » SIF /* Create_if 
222 . DFNAM /* Default_name 
225 . DEFWRT /* Deferred_write 
224 . DOC /* Delete_on_close 
225 - DIR /* Directory_entry 
226 . EODEL /* Erase_on_delete 
$56 . EXTEN /* Extension 
28 . GBC /* Global_buffer_count 
$$) - MIBLSIZ /* MT_block_size | 
0 » MICP /* MT_current_position 
31 . MINEF /* MT_not_eof 
35 , MTPRO /* MT“profection : 
3 , MTREW /* MT_rewind / MT_open_rewind 
34 . MTRWC /* MT“close_rewind 
35 . MAXRECN /* Max _record_number 
36 , MAXVER /* MaxTmize_vérsion 
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7 . NA /* Name FOL 
8 ; BKTUP /* Nobackup v04 
9 » NFS /* Non_file_ structured 
40 . OFP /* Output. fite_parse ; 
41 » OR /* Organization : 
rh} » OWNER /* Owner ; 
4 - POC /* Print_on_close : 
244 » PROT /* Protection . 
245 » READC /* Read_check ; 
548 » REVISN /* Revision : 
47 » $0 /* Sequential_only : 
248 » SOC /* Submit_on_close ; 
49 » SUPER /* Superscede : 
50 - TEMPO /* Temporary . 
51 » TOC /* Truncate_on_close : 
26 - UFO /* User_filé_open : 
25 , WIN /* Window_size : 
See . WRITEC /* Write _Ttheck ; 
256 /* Codes for Journal primary $ 
257) /* : 
15-SEP-1984 23:01:54.97 SDL_V2.0 Page 6 : 
15-SEP-1984 22:44:18 -$255$DUA28: CFDL.SRCIFDLPARDEF .SDL;1 ; 
258 . AFTIM /* After_image | : 
259 » AFTNAM /* After_name : 
260 » AUDIT /* Audit=trail : 
261 - AUDNAM /* Audit_name : 
26 . BEFIM /* Before_image : 
26 . BEFNAM /* Before_name. ‘ 
see . RU /* Recovery_unit : 
266 «=—/* Codes for Key primary ; 
267) /t ; 
268 . CHANGE /* Changes : 
269 » DAREA /* Data_area : 
270 - DFILL /* Data_fill : : 
271 » DATKC /* Data_key_compression ° 
272 - DATRC /* Data_record_compression . 
273 » DUPS /* Duplicates | : 
274 - IAREA /* Index_area ' : 
275 - IDXC /* Index_compression : 
276 - IFILL /* Index fil 4 | 3 
277 » LAREA /* LevelT_index_area : 
278 » KYNAME /* Name : 
279 » NULL /* Null_ke ; 
$B « NULLVAL /* Null_value — : 
81 ~ PROL /* Prologue_version ; 
282 . SEGLEN /* Segment Tength 3 
83 - SEGPOS /* position 
Re » SEGTYP /* type 
My] fm Codes for Record primary 
288 . BLKSPN /* Block_span 
89 » CARCTRL /* Carrage_control 
90 - VFCSIZ /* Control_field_size 
91 " /* Format 
38 . SIZE /* Record_size 
94 /*e Sharing primary 
95 /* . 
96 » SHRDEL /* Deletes 


J 4 


» SHRGET /* Gets | FOL 
+ SHRMSE /* Multi-stream connects v04 
» SHRNIL /* Dissallow sharing 
» SHRPUT /* Puts 
01 » SHRUPD /* Updates _ 
4 » SHRUPI /* User provided interlocking 
$e . Codes for System primary 
306 . DEVICE /* Device 
307 » SOURCE /* Source 
$08 » TARGET /* Target 
#19 tg THE LAST SECONDARY FOLLOWS: 
® 
Hf SECTAB_SIZE 
sz } equals~0 increment 1 prefix FDL tag $C; 
315 /* The following are markers which are useful to FOLS$GENERATE | 
15-SEP-1984 23:01:54.97 SDL V2.0 Page 7 | 
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17 constant ACCESS_BEG equals FOLSC_FACBIO prefix FDOL$ tag C; 
3 constant ACCESS_END equals FDLSC_FACUPD prefix FDL$ tag C; 
20 constant ACL_BEG equals FDLSC_ACE prefix FDL$ tag C; 
$3 constant ACL_END equals FDLSC_ACE prefix FDL$ tag C; 
23 constant ANALYSIS_OF_AREA_BEG equals FDLS$C_RECL prefix FDL$ tag C; 
Se constant ANALYSIS_OF_AREA_END equals FDLSC_RECL prefix FDL$ tag C; 
26 constant ANALYSIS_OF_KEY_BEG equals FDLSC_DFIL pretts Fos fag C3 
4 constant ANALYSIS_OF_KEY_END equals FDLSC_SEQACC prefix FDOL$ tag C; 
29 constant AREA_BEG equals FDLS$C_ALLOC prefix FDL$ tag C; 
Ht constant AREA_END equals FDLS$C_VOLU prefix FDL$ tag C; 
32 constant CONNECT_BEG equals FDLSC_ASY prefix FDL$ tag C; 
3 constant CONNECT_END equals FDLSC_WBH prefix FDL$ tag C; 
35 constant DATE_BEG equals FDL$C_BACKUP prefix FDL$ tag C; 
36 constant DATE_END equals FDLS$C_REV prefix FDL$ tag C; 


constant FILE_BEG equals FDLSC_ALL prose FOL$ tag C; 
constant FILE_END equals FDLSC_WRITEC prefix FDOLS tag C; 


constant JOURNAL_BEG equals FDLSC_AFTIM prefix FDLS tag C; 
constant JOURNAL_END equals FDLSC_RU prefix FOL$ tag C; 


constant KEY_BEG equals FDLS$C_CHANGE prefix FDL$ tag C; 
constant KEY_END equals FDLSC_SEGTYP prefix FOL$ tag C; 


constant RECORD_BEG equals FDL$C_BLKSPN prefix FDL$ tag C; 
constant RECORD_END equals FDLSC_SIZE prefix FDL$ tag C; 


constant SHARING BEG equals FDLSC_SHRDEL prefix FDOL$ tag C; 
constant SHARING_END equals FD HRUPI prefix FOL$ tag C; 


L$C_S 
constant SYSTEM_BEG equals FDLSC_DEVICE prefix FDL$ tag C; 
constant SYSTEM_END equals FDOLSC_TARGET prefix FOL$ tag C; 


/e Qualifiers 
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These codes are found in FDLSGL_QUALIFIER 


Qualifiers for the Area secondary 


constant ( 


YPOS /* Any_Cylinder 
CLUSPOS /* Cluster 

CYLPOS /* byt nder 
FIDPOS /* File_ID 
FNMPOS /* File_name 
LOGPOS /* Logical 
NOPOS /* None 
VIRPOS /* Virtual 
Qualifiers for the Record secondary 

15-SEP-1984 23:01:54.97 
15-SEP-1984 22:44:18 
NONE /* None 
CR /* Carrage return 
FIN /* Fortran 
PRINT /* Print 
UDF /* UNDEFINED 
FIX /* FIX 
VAR /* VARIABLE 
VFC /* VFC 
STM /* STREAM 
STMLF /* STREAM_LF 
STMCR /* STREAM_CR 
Qualifiers for the Journal secondary 
IF _3N /* If_in_recovery_unit 
/* NecesSary_to_write 

NEVER /* Never_RU_journal 
Qualifiers for the System secondary 

IAS /* IAS 
RSTS /* RSTS/E 
M /* RSX-11M 
MPLUS /* RSX=-11M-PLUS 

T /* RT-11 

TRAX /* TRAX=11 
VMS /* VAX/VMS 
Qualifiers for the File secondary 
SEQ * SEQUENTIAL 
REi /* RELATIVE 

IDX /* INDEXED 
HSH /* HASHED 
Qualifiers for the Key secondary 

STG /* prejne 

IN2 /* INT 
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equals 0 increment 1 prefix FDL tag $C; 
Constants for FDLGENTAB 


constant ( 

FAB 
97 S 
, RAB aca : 
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) equals 0 increment 1 prefix FDL tag $C; 
constant ( 


ING | 
QUALIFIER | 
SPECIAL | 


equals 0 increment 1 prefix FDL tag $C; 
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Parse data stuff | 


These structures must be contiguous so that EDF can access them from 
one point. If they need to be changed consult with the owner of edf 


FDOLSAL_BLOCK: ctrl 


secondary 


now fF WwW He S| CO 
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poowee secctrl 9 ceoese 
ee natitier 
number 14 
switch 15 
15-SEP-1984 23:01:54.97 SDL_V2.0 Pa 10 
: 18=sEp-1 9p $330 18 $55 $$5UA28: CFDL. SRCJFDLPARDEF .SDeo1 

owner uic 16 | 
sparel 17 
protection 18 
tid 1 19 | 
tid 2 20 
tid 3 21 | 
22 
i= date/time quadword a 
ores ik ERO ua 24 | 
tere string desc <== 
Be ota cig Se ecay pe 26 
i=== comment desc ===! 
Qe cers 28 | 
jomee {tne dogg) | (seen | 
Toker eae =e << 30 | 
in== upcased desc -===} 
slime count. 32 | 

33 


tone item desc ---- 


35 = FDLS$K_BLOCK_END 


e 
: FDOLSK_BLOCK_END equals the offset to the last longword in FOLSAL_BLOCK 


constant CTRL equals 0 prefix FDL tag $L; 


De Se Oe Be Be Oe Be Be Oe Be Be Se Be Oe Se Be Be Se Se Se Se Se BH Se Se SH Se Se Se Se oe SH Se Se Se Se Se Se Se Se Se Se Se Se See Se Se Se Se Se Sees Be Se esas 


| 
i 
| 
| 


PPV SISISISISIVIIVT 
SP a et el et et ee te © 
NOUS WN—O0OO~s 


DPUPVPV PVPS SIS AIT UIT 
PAEAPXAEMMAMAAMN VI 
WHO DOOBNOUSWN—OO0W 


PUP PPPS SINT 
OOOO NNN NNN NN 
WR OC OBNOUSWN—O 


N 4 


constant PCALL equals FDLSL_CTRL + 1 prefix FOL tag $L; FOL 
constant PRIMARY equals FOLS$L~PCALL + 1 prefix FDL tag $L: v04 
constant PRINUM equals FDLSL_PRIMARY + 1 prefix FOL tag $L; . 
constant PRICTRL equals FDLSL_PRINUM + 1 prefix FDL tag $L; ‘ 
constant SECONDARY equals FOLSL_PRICTRL + 1 prefix FOL tag $L; ay 
constant SECNUM equals FDLSL_SECONDARY + 1 prefix FDL tag $L; ; 
/** FDLEK_SCTRL_LONG is the number of longwords in FDOLS$AB_SECCTRL ; 
/** FDOLSK_SCTRL_VEC is the number of bits_in FDLSAB_SECCTRL os) 
/** Each Tongword has enough bits to map 32 unique Secondary attributes | 
15-SEP-1984 23:01:54.97 Ht ¥e.0 Page 11 e | 
15-SEP-1984 22:44:18 -$255$DUA28: CFDL.SRCIFDLPARDEF .SDL;1 - 
constant SCTRL_LONG equals 6 prefix FDL tag $K; 3 
constant SCTRL_VEC equals FDLS$K_SCTRL_LONG * 32 prefix FOL tag $k; a 
constant SECCTRL equals FDL$L-SECNUM + 1 prefix FDL tag $A; 
constant QUALIFIER equals 
FOLS$A_SECCTRL + FDLSK_SCTRL_LONG prefix FDL tag $1, 
constant NUMBER equals FOLSL_QUALIFIER + 1 prefix FDL tag $L; 
constant SWITCH equals FDLSL_NUMBER + 1 prefix FOL tag $L; 
constant OWNER UIC equals FDLSL_SWITCH + 1 prefix FOL tag $L; 
constant SPARE equals FDLSL_OWNER_UIC + 1 prefix FDL tag $L; 
constant PROTECTION equals FDL$L_SPARET + 1 prefix FDL tag $L; 
constant F1D1 equals FDLSL_PROTECTION + 1 prefix FDL tag $L; 
constant FID equals FDOLSL_FID1 + 1 prefix FDL tag $L; 
constant FID equals PDL aL Fide + 1 prefix FDL tag $L; 
constant DATE TIME equals FDLSL_FID3 + 1 prefix FDL tag $0; 
constant STRING equals FDL$Q_DATE TIME + 2 prefix FDL tag $0; 
constant COMMENT equals FDL$Q-STRING + 2 prefix FDL tag $0; 
constant LINE equals FDL$Q_COMMENT + 2 prefix FDL tag $0; 
constant UPCASED equals FDL$Q_LINE + 2 prefix FDL tag $0; 
constant STMNTINUM equals FDL$Q_UPCASED + 2 prefix FDL tag $L; 
constant ITEM equals FDLSL_STMNTNUM + 1 prefix FDL tag $0; 
constant GCALL equals FDL$Q_ITEM + 2 prefix FDL tag $L; 
constant BLOCK_END equals FDL$L_GCALL prefix FDL tag $k; 
/* Misc. 
/t 
/ Max size of the fdl Line 
8 
constant MAXLINE equals 1024 prefix FDL tag $K; 
constant CLEAR equals 0 prefix FDL tag $C; 


end FDLDEF3; 
end_module $FDLDEF3; 
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